Calculatrices Casio Graphiques : Jeux, programmes, cours, pompes, astuces et programmation sur calculatrice graphique Casio et ClassPad 300 : programmes casio et jeux casio...

"Creer: Mat U[5x2]"
Lbl 0
ClrText
" "
Orange " "
Locate 8,2,"DEMINOX"
" "
Locate 8,3,""
Green " "
Locate 5,4,"- par Nowix -"
" "
"Nbre de mines 148 "?N
Int Abs NN
N=0 Or N>48Stop
Locate 1,6," "
Locate 1,7," Patienter..."
Identity 7Mat T
Fill(0,Mat T
For 1V To N
Do:Int 7Ran#+1B
Int 7Ran#+1C
LpWhile Mat T[B,C]=9
9Mat T[B,C]
C1Mat T[B,C-1]+1Mat T[B,C-1]
B1C1Mat T[B-1,C-1]+1Mat T[B-1,C-1]
B1Mat T[B-1,C]+1Mat T[B-1,C]
B1C7Mat T[B-1,C+1]+1Mat T[B-1,C+1]
C7Mat T[B,C+1]+1Mat T[B,C+1]
B7C7Mat T[B+1,C+1]+1Mat T[B+1,C+1]
B7Mat T[B+1,C]+1Mat T[B+1,C]
B7C1Mat T[B+1,C-1]+1Mat T[B+1,C-1]
Next
0C
Seq(0,X,1,196,1)List 1
List 1List 2
For 1D To 14
For 0A To 48 Step 8
For 38B To 40 Step 2
Isz C
A+BList 1[C]
Next
Next
Next
0C
For 0A To 48 Step 8
For 7B To 9 Step 2
For 1D To 14
Isz C
A+BList 2[C]
Next
Next
Next
S-WindMan
ViewWindow 1,127,0,63,1,0
Cls
S-Gph1 DrawOn,Scatter,List1,List2,1,Cross,Blue
S-Gph2 DrawOff
S-Gph3 DrawOff
DrawStat
{0}List 1
List 1List 2
Green Horizontal 1
Green Horizontal 63
Green F-Line 32,1,32,63
Green F-Line 94,1,94,63
Green F-Line 94,37,127,37
Text 3,4,"F1"
Green Text 3,1,"[ ]"
Text 9,1,"N"
PlotOn 6,13
Text 9,8,"partie"
Text 19,4,"F2"
Green Text 19,1,"[ ]"
Text 25,1,"Scores"
Text 35,4,"F3"
Green Text 35,1,"[ ]"
Text 41,1,"Aide"
Text 51,4,"F6"
Green Text 51,1,"[ ]"
Text 57,1,"Quitter"
Green Text 2,96,"DEMINOX"
Green F-Line 95,7,127,7
Text 10,97,"MINES:"
Orange Text 16,98,N
Text 24,97,"TEMPS:"
Orange Text 30,98,0
F-Line 35,4,91,4
F-Line 91,4,91,60
F-Line 91,60,35,60
F-Line 35,60,35,4
For 43A To 91 Step 8
F-Line A-1,4,A-1,60
F-Line A,4,A,60
F-Line 35,A-32,91,A-32
F-Line 35,A-31,91,A-31
Next
{38,40,42,38,40,42,38,40,42}List 1
{7,7,7,9,9,9,11,11,11}List 2
S-Gph1 DrawOn,Scatter,List3,List4,1,Cross,Blue
Green F-Line 33,32,34,32
Green F-Line 92,32,93,32
Green F-Line 63,2,63,3
Green F-Line 63,61,63,62
4A~B
0J~M
0T
Text 47,100,"Pret ?"
Do:Getkey:LpWhile Ans=0
Lbl L
Text 47,100," "
Do
T+.5T
Orange Text 30,98,Int T
Getkey
AG:BH
=28A-1G
=37A+1G
=38B-1H
=27B+1H
G=07G
G=81G
H=07H
H=81H
=79Goto 0
If =69
Then ClrText
Green " "
Orange " "
Locate 1,1,"Scores/Mines Deminox"
Locate 1,2,"---------------------"
For 1L To 5
Locate 1,L+2,L
Locate 2,L+2,":"
Locate 3,L+2,Mat U[L,1]
Locate 7,L+2,":"
Locate 8,L+2,Mat U[L,2]
Next
Do:Getkey:LpWhile Ans=0
IfEnd
If =59
Then ClrText
Green " "
Orange " "
" "
" "
Green " "
Green " "
Green " "
Locate 1,1,"Aide: Deminox"
Locate 1,2,"---------------------"
Locate 1,3,"Deminer le terrain sa"
Locate 1,4,"ns toucher les mines."
Locate 1,5,"[REPLAY]:Deplacement"
Locate 1,6,"[SHIFT]_:Deminer"
Locate 1,7,"[ALPHA]_:Drapeau/Rien"
Do:Getkey:LpWhile Ans=0
IfEnd
=29Goto Q
=77Break
If AG Or BH
Then If AG
Then Green Text 8A-3,33," "
Green Text 8A-3,90," "
GA
Green F-Line 33,8A,34,8A
Green F-Line 92,8A,93,8A
IfEnd
If BH
Then PxlOff 2,31+8B
PxlOff 3,31+8B
PxlOff 61,31+8B
PxlOff 62,31+8B
HB
Green F-Line 31+8B,2,31+8B,3
Green F-Line 31+8B,61,31+8B,62
IfEnd
IfEnd
LpWhile 78
=77Goto D
Mat T[A,B]I
I=9Goto F
Frac I0Goto L
Text 8A-2,8B+28," "
Text 8A-2,8B+31," "
PxlOff 8A-3,8B+34
I+.5Mat T[A,B]
I0Green Text 8A-2,8B+30,I
Isz M
M49-NGoto L
MatList(Mat U)List 5
Int (T^-1_w5)T
For 1K To 5
TList 5[K]Break
Next
K=5TList 5[5]TList 5[5]
K=5Goto V
For 4L To K Step -1
List 5[L]List 5[L+1]:Next
TList 5[K]
NList 5[K]
Lbl V
Do
Green Text 40,100,"Gagne!"
Text 49,100,"PRESSE"
Green Text 40,100," "
Text 55,103,"[EXE]"
LpWhile Getkey31
Goto K
Lbl D
Mat T[A,B]I
1J
Frac I=.5Goto L
Frac I=02J
Text 8A-2,8B+28," "
Text 8A-2,8B+31," "
PxlOff 8A-3,8B+34
J=1Orange Text 8A-4,8B+31," "
If J=2
Then Mat T[A,B]+.1Mat T[A,B]
F-Line 8B+31,8A-2,8B+31,8A+2
F-Line 8B+30,8A+2,8B+32,8A+2
Orange Text 8A-5,8B+31,"."
Else Mat T[A,B]-.1Mat T[A,B]
A-1A
B-1B
F-Line 39+8B,6+8A,37+8B,8+8A
F-Line 41+8B,6+8A,37+8B,10+8A
F-Line 41+8B,8+8A,39+8B,10+8A
F-Line 37+8B,6+8A,41+8B,10+8A
Isz A
Isz B
F-Line 8B+34,8A-3,8B+34,8A+3
F-Line 8B+27,8A+3,8B+33,8A+3
IfEnd
0J
Goto L
Lbl Q
ClrText:Cls
"-FIN-"
Stop
Lbl F
Text 8A-2,8B+28," "
Text 8A-2,8B+31," "
PxlOff 8A-3,8B+34
Orange F-Line 8B+29,8A-2,8B+33,8A+2
Orange F-Line 8B+29,8A+2,8B+33,8A-2
Orange Text 40,100,"Perdu!"
For 1A To 7
For 1B To 7
Int Mat T[A,B]9Goto S
Text 8A-2,8B+28," "
Text 8A-2,8B+31," "
PxlOff 8A-3,8B+34
Orange Text 8A-4,8B+31," "
Orange F-Line 8B+29,8A-2,8B+33,8A+2
Orange F-Line 8B+29,8A+2,8B+33,8A-2
Lbl S
Next
Next
Do
Orange Text 40,100,"Perdu!"
Text 49,100,"PRESSE"
Orange Text 40,100," "
Text 55,103,"[EXE]"
LpWhile Getkey31
Lbl K
ClrText
Green " "
Orange " "
Locate 1,1,"Scores/Mines Deminox"
Locate 1,2,"---------------------"
For 1L To 5
Locate 1,L+2,L
Locate 2,L+2,":"
Locate 3,L+2,Mat U[L,1]
Locate 7,L+2,":"
Locate 8,L+2,Mat U[L,2]
Next
If K=1
Then Locate 12,4,"NOUVEAU"
Locate 12,6,"RECORD !"
Else Locate 17,7,"-FIN-"
IfEnd
Identity 1Mat T
Stop